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**F ILE®*1D**ALLOCB BAD 

AAAAAA ss LL LL 000000 CCCCCCCC ®BBBBBBBB : 

AAAAAK—sLL LL 000000 CCCCCCCC §=BBBBBBBB : 
AA AA LL LL 00 00 cc 8B BB : 
AA AA LL LL 00 00 CC BB 5B : 
A LL LL 00 00 CC BB BB : 
AA AA LL LL 00 00 CC BB 8B : 
AA AA LL LL 00 00 CC BBBBBBBB 3 
AA AA LL LL 00 00 CC B3BBBBBB : 
AAAAAAAAAA LL LL 00 oo cc BB BB . 
AAAAAAAAAA LL LL 00 00 CC 88 88 ; 
AA AA LL LL 00 00 CC BB BB Seibel ; 
AA AA LL LL 00 00 CC BE BS aha | : 
AA AA LLLLLLLLLL LLLLLLLLLL 000000 CCCCCCCC + BBBBBBBB pale ; 
AA AA LLLLLLLLLL LLLLLLLLLL 000000 CCCCCCCC BBBBBBBB ewes : 
LL III SSSSSSSS : 
LL eeeeel SSSSSSSS : 
LL I] $s : 
LL Il ss : 
aN I] ss ‘ 
LL Il $$ : 
LL II SSSSSS ; 
LL Il SSSSSS : 
LL II SS | : 
LL II $$ : 
LL I] SS : 
LL II Ss 3 
LLLLLLLLLL IIII1 é 
LLLLLLLLLL III] : 


ee - oe } 


8 3 
ALLOCB ~ ALLOCATE DYNAMIC MEMORY ym Hate 3:41:34 AX/VMS Macro V04-00 Page 1 
v04-000 SEP=1984 01:10:0 Pity «SRC ALLOCB. MAR; 1 (1) 


LE ALLOCB = ALLOCATE DYNAMIC MEMORY 
NT ‘v04-000' 


~MASRBRBARARAALARAASALASAASLAAAARAAARESASASASAREAA RSL ASE ASSESSES ARES SAS ESE RAS ESE AES SD 


COPYRIGHT (c) 1978, 1980, 1982, 1984 6 
DIGITAL EQUIPMENT CORPORATION, wAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE s urhaitne  / A LICENSE AND MAY BE USED AND COPIED 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
er eokat ihe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
H IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: FIVACP STRUCTURE LEVEL 2 


NAMES WN 0 OO WANE WIN OC OD NAME WIN 8 OD NAME WWM HO OONOAU EWN OOONOU EWN 


PUPP BB BB BE BE EE NINN NINA NIIP no nonoNnononononyn es ss Os es es 


0 : ABSTRACT: 
0 : THESE ROUTINES ALLOCATE AND DEALLOCATE SYSTEM 
: DYNAMIC MEMORY FOR FCP CONTROL BLOCKS. 
0 : ENVIRONMENT: 
0 : STARLET OPERATING SYSTEM, INCLUDING PRIVILEGED SYSTEM SERVICES 
; AND INTERNAL EXEC ROUTINES. NOTE THAT THIS ROUTINE MUST BE 
° : CALLED IN KERNEL MODE. 
0 fe 
$00 $ AUTHOR: ANDREW C. GOLDSTEIN, CREATION DATE: 14-DEC-1976 16:25 | 
909 : MODIFIED BY: | 
000 ; v03-009 LMP0258 L. Mark Pilant 25-Jun-1984 9:52 
4 : Make sure IPL is Lowered when leaving the allocation routine. 
000 : v03-008 cps000s Christian D. Saether 9-Apr-1984 
494 3 Charge WCBs against BYTLM also. 
$09 : V03-007 ACG0408 Andrew C. Goldstein, 23-Mar-1984 10:54 | 
on8 : Make all of global storage based | 
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vO4-000 5-SEP-1 198 1:10: 08 LET iK SRC ALLOCB.MAR; 1 . (1) | 

0 28 : v03-006 gpsoode Christian D. Saether 9-Mar-1984 ; 

: ° lear type field before deallocating so cleanup can ° 

8 oy ; ipae double remque attempts. ; 

000 66 ; v03-005 LMP0192 L. Mark Pilan 13-Feb-1984 11:36 ‘ 

B98 65 ; Enter resource wait at IPL gyNCH if allocation of paged pool ° 

00 64 ; fails. ‘ 

aia 65 ; ‘ 

000 66 ; V03-004 LMP0186 Mark Pilan 3-Feb-1984 11:57 : 

44 of : Add support for CHIP blocks trom paged pool. ° 

4 4 ; vO3-003 LMP0036 L. Mark Pilant, 24-Aug-1982 10:52 : 

it a : Add support for Access Control List blocks in paged pool. | ° 

0000 i 3 v03-002 ¢DS0001 C Sae 2-Aug-1982 ‘ 

iti 4 : Make PCB address salaulentea PIC. : 

0000 75 ; v03-001 EAPOOT 7 L. Mark Pilant, 29-Mar-1982 9:45 : 

4848 £6 ; Put back in the quota checking. : 

0000 78 ; vO2-002 LMP0011 L. Mark Pilant, 23-Feb-1982 15:00 ‘ 

0000 79 ; cpnous the quota checking inserted in LMP0003. This is for ‘ 

8008 + : the V3 FT2 release only. : 

0000 He $ v02-002 LMP0003 L. Mark Pilant, 4-Dec-1981 09:05 : 

i444 : ; Charge the user for any windows created. : 

0000 aS 5 A0101 ACG0081 Andrew C. Goldstein, 6-Nov-1979 21:40 | ‘ 

44 86 3 Add cache block for quota cacheing : 

0000 88 ; A0100 ACG00001 Andrew C. Goldstein, 10-Oct-1978 20:04 : 

0000 89 ; Previous revision history moved to F11A.REV : 

0000 90 ;** | : 

0000 91 | : 

0000 3 3 ‘ 

0000 93 ; INCLUDE FILES: | ; 

0000 94 ; . 

0000 95; INCLUDE ‘'FCPDEF .MAR" | ; 

0000 96 ° 

0000 97 : 3 

0000 98 ; EQUATED SYMBOLS: ; 

aia 99 ; : 

000 100 : ARG LIST OFFSETS 3 

00000004 $000 109 BYTES = 4 ; BYTE COUNT DESIRED 

00000008 448 103 TYPE = 8 ; BLOCK TYPE BEING ALLOCATED g 

00000004 4 He ADDRESS = 4 ; ADDRESS OF BLOCK BEING DEALLOCATED : 

$009 196 $D\NDEF ; DEFINE STRUCTURE TYPE CODES : 

000 10 SIPLDEF ; DEFINE SYSTEM IPL NAMES : 

O60 13s SiRPOEF 3; DEFINE 1/0 PACKET OFFS : 

00 1 $JIBDEF ; DEFINE JOB INFORMATION BLOCK FORMAT : 

44 110 SPCBDEF : DEFINE PROCESS CONTROL BLOCK FORMAT : 

0 (, 111 SPRDEF ; DEFINE PROCESSOR uae NAMES ; 

H's 6 SRSNDEF ; DEFINE RESOURCE N ARES 3 

6° 11 SWCBDEF ; DEFINE WINDOW PL OCK FORM : 

000 114 ; USED ONLY FOR TAGS TO THE "BLock TYPE : 
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y04~600 Breer Teas Biitocs Let N eacdaccote mans 1 «2! 
C 134 ;+4+4 ; 
C 135; : 
: 136 : FUNCTIONAL DESCRIPTION: | ; 
ry 8 : THIS ROUTINE ALLOCATES THE REQUESTED BLOCK SIZE FROM SYSTEM | : 
€ 139 : NON-PAGED DYNAMIC MEMORY. THE BLOCK IS CLEARED, AND THE STANDARD : 
09¢ 140 + SIZE AND TYPE DATA IS INSERTED. : 
00C 148 : CALLING SEQUENCE : | ; 
00C 143: CAL ALLOCATE (ARG1, ARG2) | ; 
00C 144: | ; 
99¢ 145 : INPUT PARAMETERS: ; 
¢ 146 : ARG1: NUMBER OF BYTES TO ALLOCATE ; 
00C 147: ARG2: TYPE OF BLOCK ’ 
QO00C 148 ; : 
000C 149 : IMPLICIT INPUTS: | : 
000¢ 150: NONE | ; 
000¢ «151: | ; 
000C 136 3; OUTPUT PARAMETERS: é 
000€ 153: NONE | : 
000c «154: ; 
000C 155 ; IMPLICIT OUTPUTS: 3 
000C 126 : NONE ; 
000¢ «157: | : 
000C 158 : ROUTINE VALUE: ; 
000¢ «159 : ADDRESS OF BLOCK : 
000C 160: : 
000C 161 : SIDE EFFECTS: | ; 
000C 166 3 BLOCK ALLOCATED 3 
000C 163: | ; 
000C 164 | aes | Ps 
000C 165 Z 
000C 166 ALLOCATE:: : 
003¢ 000C 167 .WORD “M<R2,R3,R4,R5> ; SAVE THE USUAL REGISTERS : 
51 04 AC DO OOOE 168 10$: MOVL  BYTES(APS,RI i GET SIZE A ; 
51 OF CO 0012 169 ADDL2 4#15,R1 ASSUME 16 BYTE GRANULARITY : 
51 OF CA 0015 170 BICL2 #15.R1 ; 
0018 «171 SETIPL #IPL$_S ; RAISE IPL TO SYNCHRONIZE : 
01 O08 AC 01 0018 1% CMPL TYPE GREY. Puce. TYPE : IS THE BLOCK TO BE A WCB? : 
39 te OO1F 17 BNEQ 30% ; XFER IF NOT, NO FURTHER CHECKS NEEDED : 
0000'TA 05 0021 17% TSTL  WCONTEXT_SAVE(R10) ; ELSE CHECK FOR SECONDARY CONTEXT 3 
33 12 «0025 «175 BNEQ 308 : XFER IF IN SECONDARY CONTEXT, NO CHARGE ; 
50 0000'CA 00 0027 176 MOVL  W*CURRENT_WINDOW(R10),RO'; GET cURRENt WINDOW ADDRES : 
05 1 0 P -t0 BEQL 20% ;XFER IF NONE, NO SHARING POSSIBLE | 3 
0c Ad OB — 178 TSTW  WCBSL_PID(RO) : ELSE CHECK FOR'S SHARED |W WINDOWS ; 
27. 13 «40031+=—«179 BEQL 30% ; XFER IF SHA NO CHARGE | ; 
50  0000'CA 00 033 180 20$:  MOVL W*IO_PACKET(R10),RO : ELSE GET 1 ADDRESS OF THE IRP | : 
50 OC AO 3C 6 B 181 MOVZWL IRPSC_PID(RO),RO : GET PROCESS INDEX ; 
00000000'GF dD 1 : PUSHL 6° SCHSGL PCBVEC : GET ADDRESS OF PCB VECTOR ; 
50 340 D 421 MOVL a(SP)+CROJ,RO : GET PCB ADDRESS : 
50 — 0080 D 46 184 MOVL. PCBS$L_JIB(RO),RO : GET JIB ADDRESS F 
52° 20a0 51 C 48 185 SUBL3 R1,JIBSL_BYTCNT(RO),R2 ; CALCULATE NEW BYTE COUNT : 
4p 15 0050 1 6 BLEG 608 : XFER IF NOT ENOUGH QUOTA : 
0 AO 3¢ 06 05 1 MOVL Re. J1BSL_BYTCNT (RO) : SET NEW BYTE COUNT | ; 
4 AO C 560188 SUBL2 R1,JIBSL~BYTLM(RO) : REDUCE BYTLM - THIS IS LONG-LIVED ALLOCATI | : 
E oC O5A 189 30$:  MOVPSL -(§P) t SAVE THE PSL FOR WAIT CALL BELOW 3 
00000000'9F 16 005¢ 190 JSB a#E XESALONONPAGED : GET BLOCK FROM EXEC : 


| 
ALLOCB = ALLOCATE DYNAMIC MEMORY 15=SEP=1984 23:41:42 VAX/VMS Macro V04-00 
vo e500 antes 7 83:4 ‘68 F11X.SRCJALLOCB.MAR; 1 | vo 
21 50 191 BLBC RO, 508 : BRANCH ON FAILURE | ; 
198 SETIPL : RESTORE IPL : 
19 + CLEAN PSL OFF STACK AND : 
6— 51 194 MOVL  R1,(SP) + SAVE RETURNED BYTE COUNT ; 
52 195 PUSH, Re t AND ADDRESS | : 
62 51 00 62 06 2 * 196 MOVCS  #0,(R2),#0,R1,(R2) : ZERO OUT THE BLOCK | : 
50 «BE 85 198 MOVL (SP)+,RO : GET BLOCK ADDRESS : 
08 AO BE 076 199 CVTLW  (SP)+,WCBSW_SIZE(RO) IN SIZE : 
51 O08 AC 00 007A 00 MOVL TYPE CAP) GET BLOCK Cpe PERG : 
OA AO FF7D CF41 =©90 Ove 01 MOVE  BLOCK_TYPECR1),WCBSB_ TPE (R ; 
04 008 08 RET ; AND RETURN : 
a 04 t WE GET HERE IF MEMORY IS NOT AVAILABLE : 
06 OB AC D1 09 6 06 50S: CMPL =s«TYPE(AP) #CACHE_TYPE =; SEE IF THIS IS A CACHE BLOCK : 
13. 13 008A 20 BEQL 60$ : BRANCH IF SO = DON'T WAIT ; 
50 03 3¢C 008C 208 MOVZWL #RSNS_NPDYNMEM,RO : GET APPROPRIATE RESOURCE CODE : 
54  00000000'9F DO O08F 209 MOVL  a@#SCHSGL_CURPCB,R4 : AND PROCESS PCB : 
00000000'9F 16 0096 210 JSB ttt HSRWAIT : AND WAIT FOR POOL o APPEAR | ; 
FF6F 31 009¢ if BRW 10$ : TRY AGAIN ; 
4948 18 ; UPON FAILURE, LOWER IPL AND LEAVE. | : 
50 D4 OO9F 215 60$: CLRL RO ; NOTE FAILURE ; 
O0A1 216 SETIPL #0 : LOWER IPL | j 
04 OOA4 217 RET + AND RETURN | : 
| : 
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. FUNCTIONAL DESCRIPTION: 
A THIS ROUTINE ALLOCATES THE REQUESTED BLOCK SIZE FROM SYSTEM 
OA PAGED DYNAMIC MEMORY. THE BLOCK IS CLEARED, AND THE STANDARD 
OA SIZE AND TYPE DATA I$ INSERTED, 


CALLING 1 ee 
CAL ALLOC_PAGED (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: NUMBER OF ayers TO ALLOCATE 
ARG2: TYPE OF BLOC 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


ADDRESS OF BLOCK 


SIDE EFFECTS: 
BLOCK ALLOCATED 


ALLOC_PAGED:: 
WORD 


PPPrrrrrrrrrrrrrrrrrrrrrr>,r>r 
SDV IPI IUIUPUSUSVSUSVSUSVSUSUSUSUS USS ISVS ISVS ISIS 


SSSOSOSSSSSSSSSSOSSSSSSSSOSSOSOSSSOSO 
NNN NINA AAA AAA AAA MMMM IAI BS BS BS BB WIAA AAAI II OPOOPONIPONUNN 


MEAN 9 OD NA UNE WI 9 OD NAME WIN 9 OD NAME WIN 2 CO OD NAME WO OONOAOUE Wi O00 


o 
oO 
SOOOCOOOSCOCOOSOOSOOSOSOOOSOOSOOOOOSOOOOOSOOSOOSOOSOOOOOOSoOOoOO 


003¢ ; “MER RS R4,R5> : SAVE THE USUAL REGISTERS 
51 04 AC DO 10$:  MOVL By YTES(APS RI : GET SIZE A 
51 OF AB ADDL2 #15,R1 : ASSUME 16 BYTE GRANULARITY 
51 OF CA OOAE BICL2 #15, R1 
7E OC 0081 MOVPSL ) ; SAVE THE PSL FOR WAIT CALL BELOW 
00000000 9F 16 00B3 JSB awe XESALOPAGED : GET BLOCK FROM EXEC 
1E 50 £9 0089 BLBC — RO, 508 : BRANCH ON FAILURE 
OBC > CLEAN PSL OFF STACK AND 
6€ 51 DO O0BC MOVL 1, (SP) t SAVE RETURNED BYTE COUNT 
52 DD «O(OOBF PUSH + AND ADDRESS 
62 51 00 62 00 2¢ ach MOVCS #0,(R2),#0,R1,(R2) : ZERO OUT THE BLOCK 
50 8€ 00 00C7 MOVL  (SP)+,RO ; GET BLOCK ADDRESS 
08 AO BE F? OOCA CVTLW (SP) +, WCB$W_SIZE(RO) ; PUT IN SIZE WOR 
51 O08 AC DO OOCE MOVL TYPECAP),R1~ Aa BLOCK TYPE ARG 
OA AO FF29 CF41 90 00D MOVE BLOCK_TYPECR1),wCBSB_ TYPECR 
04 op 40$: RET ; AND RETURN 
4 s WE GET HERE IF MEMORY IS NOT AVAILABLE 
ODA Sos: SETIPL #IPL$_SYNCH : RAISE IPL TO SYNCHRONIZE 
50 95 3c 6(00DD OVZWL #RSNS~PGDYNMEM, RO > GET APPROPRIATE RESOURCE CODE 
54 00000000'9F 00 EQ HOVE a#SCHSGL_CURPCB,R4 + AND PROCESS PCB ADDRES 
0000000'9F 16 00E JSB SPSCHSGURIT t AND WAIT FOR POOL TO APPEAR 


(3) 
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QOED $76 SETIPL #0 ; RESTORE IPL 
FFB4 §=631 =«00FO 7 BRwW 108 ; TRY AGAIN 


EEE —— — ee 
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FUNCTIONAL DESCRIPTION: 


8 ; 
1; 
OF ‘ : THIS ROUTINE DEALLOCATES THE INDICATED BLOCK OF MEMORY BACK 
OF é ; TO THE SYSTEM POOL OF NON-PAGED DYNAMIC MEMORY. 
OF : : CALLING, SEQUENCE : 
OOF ; DEALLOCATE (ARG1) | 
OF § : INPUT PARAMETERS: | 
oF oY ; ARG1: ADDRESS OF BLOCK BEING DEALLOCATED 
OOF 3 : IMPLICIT INPUTS: | 
SOF 3 : —_ | 
OOF 95 : OUTPUT PARAMETERS: 
iH 38 3 NONE 
OOF 98 : IMPLICIT OUTPUTS: 
Sr gp owe 
OOF 01 : ROUTINE VALUE: 
Ber 8 3 NONE 
OOF 04 : SIDE EFFECTS: 
OOF 05 : BLOCK DEALLOCATED 
OOF 06; 
SOrs | 308 
00F3 0 DEALLOCATE:: 
003c O00F3 310 .WORD “M<R2,R3,R4,R5> > SAVE REGISTERS | 
50 04 aC 00 OOFS 311 VL ADDRESS(AP) -RO : GET ADDRESS OF BLOCK 
51 08 AO 3¢ 0F9 Ig MOVZWL WCBS$W.SIZE(RO),R1 : GET BLOCK SIZE 
51 OF co O0FD 13 ADDL A + ASSUME 16 BYTE GRANULARITY 
tt 15 SETIPL #IPL$_SYN RAISE IPL TO SYNCHRONIZE 
12 OA AO 91 0106 316 CMPB «WCB + YPECRO) . #DYNSC web - IS THE BLOCK A WCB? 
28.1 10A 17 BNEQ 10$ ; XFER IF NOT, NO FURTHER CHECKS 
0c AO BS 010C «(318 TSTW  WCBSL_PID(RO) t ELSE CHECK FOR SHARED 
26 «1 10F 19 BEQL -10$ : XFER IF NOT A SHARED Wl 
0000'CA D5 0111 0 TSTL  W°CONTEXT_SAVE(R10) t ELSE SEE IF IN SECONDARY CONTEXT 
12 0115 1 BNEG 108 : XFER IF SO, NO CREDIT 
52 0090" CA p0 117 ‘ MOVL wW*IO PACKET (R10), R2 : ELSE GET IRP ADDRESS 
52. OC C O11C MOVZWL IRPSC_PID(R2),R : GET PROCESS INDE 
00990000" GF DD 0120 4 PUSHL  G*SCHSGL pcayeC : PUSH PCB VECTOR ADDRESS 
5 DO 0126 5 MOVL a(SP)+CR2],R : GET PCB ADDRESS 
52. 0080 C2 DO 012A : MOVL PCBSL j B(R2) ,R2 > GET JIB ADDRESS 
20 AZ 31 CO O12F ADDL2 R1,JIBSL_BYTCNT(R2) : CREDIT THE USER 
4A 1 ¢0 1 3 8 ADDL2 R1, JIBSL BY TLMCR2) : RESTORE BYTLM ALSO. 
OA A 4 01 10$: CLRB wWCB$B TYPE (RO) : CLEAR SO WE CAN CATCH DOUBLE REMQUE 
00000000'9F 16 013A 0 JS8 SEE KESDEANONPAGED : AND DEALLOCATE THRU EXEC 
a 0149 } SETIPL #0 : RESTORE IPL 
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FUNCTIONAL DESCRIPTION: 


THIS ROUTINE DEALLOCATES THE IN thy TED ag OF MEMORY BACK 
TO THE SYSTEM POOL OF PAGED DYNAMIC MEMORY 


CALLING 1 eee CE: 
CAL DALLOC_PAGED (ARG1) 


INPUT PARAMETERS: 
ARG1: ADDRESS OF BLOCK BEING DEALLOCATED 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
BLOCK DEALLOCATED 


DALLOC PAGED: 


ORD “M<R2,R3,R4,R5> ; SAVE REGISTERS 

VL ADDRESS(AP) RO : GET ADDRESS OF BLOCK 
MOVZWL WCB$W_SIZE(RO),R1 ; GET BLOCK SIZE 
ADDL aie-nT : ASSUME 16 BYTE GRANULARITY 
138 a#E XESDEAPAGED ; AND DEALLOCATE THRU EXEC 
END 


AL 
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ALLOCB 
Symbol table 
ACL_TYPE 
ADDRESS 


= 0 04 
ALLOCATE p RG 08 
ALLOC PAGED AS RG 
BITMAP_TYPE = o 6 1 
BLOCK_TYPE oS OR 02 
YTES = 8 
CACHE_TYPE = 000000 
CHIP_TYPE = 0000000 
CONTEXT_SAVE teeeeeee =X = 0 
CURRENT WINDOW eereeere =X | 0 
DALLOC_PAGED 00000144 RG 0 
DATA_TYPE = 00000004 
DEALCOCATE OOOOO0OF3 RG 02 
DIRECTORY_TYPE = 44 Tg 
DYNSC_ACL = 0000003F 
DYNSC_AQB = 00000003 
DYNSC_CHIP = 00000048 
YNSC_FCB = 00000007 
DYNSC_MVL = 00000016 
DYNSC_RVT = 0000000E 
DYNSC_VCA = 00000032 
DYNSC_VCB = 00000011 
DYNSC WCB = 00000012 
EXESACONONPAGED teeeeeee =X 08 
EXESALOPAGED teeeeeee XxX 0 
EXESDEANONPAGED teeeeeee =X 02 
EXESDEAPAGED eeereree KX 02 
TYPE = 00000000 
HEABDER_TYPE = 0000000 
x_ Typ = 0000000 
10_PACKET eeeeeere = X 02 
IPC$_SYNCH = 00000008 
IRPSC_PID = 0000000¢ 
JIBSL-BYTCNT = 00000020 
JIBSL-BYTLM = 00000024 
TYPE = 00000004 
PCBSL_JIB = 0000008 
IPL = 0000001 
QUOTA_TYP = 00 44 
RSNS_RPDYNMEM = 000000 
RSN$_PGDYNMEM = 00000005 
RVT_TYPE = 00000003 
SCHSGL_CURPCB tenenene 02 
SCHSGLPCBVEC eererere =X bs 
SCHSRWAIT eeeereee 0 
= 0000000 
CB_TYPE = 0000000 
wCB$B_TYPE = 0 SA 
WCBS$L_PID = 0000C 
WCBSW" SIZE = 00000008 
WCB_TYPE = 00000001 
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ALLOCB , = ALLOCATE DYNAMIC MEMORY it dt BS 9 ga'4) $5 yerayee Macro V04-00 Page 
Psect synopsis -SEP-1984 01:10:0 F11X.SRCJALLOCB.MAR; 1 
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H Psect synopsis ! 
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PSECT name Allocation PSECT No. Attributes 


» ABS . 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 < o° Q1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SLOCKEDC1$ 00000158 ¢ 347.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 


ors 


Performance indicators ! 
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Phase Page faults CPU Time Clapsed Time 


Initialization 8 00: 00:00.1¢ 00:00:0 86 
Command processing 150 00:00:00.7 00:00:03.9 

Pass 249 00:00:06.69 00:00:15.37 
Symbol table sort 0 00:00:00.93 00:00:02 .03 
Pass 2 77 00:00:01.73 00:00:04.27 
Symbol table output 8 00:00:00.07 00:00:090.07 
Psect synopsis output 00:00:00.02 00:00:00.03 
Cross-reference output sb Bo 00:00:00.00 
Assembler run totals 518 00:00:10.34 00 :00:26.58 


The working set Limit was 1350 pages. 

38421 bytes (76 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 686 non-local and 9 local symbols. 
476 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

18 pages of virtual memory were used to define 17 macros. 


Macro Library name Macros defined 


-$255$0UA28: (SYS.OBJJLIB.MLB; 1 8 
$255$DUA28: (SYSLIBISTARLET.MLB;2 4 
TOTALS (all libraries) 12 


747 GETS were required to define 12 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:ALLOCB/OBJ=OBJ$:ALLOCB MSRC$:F CPPRE/UPDATE=(ENHS:F CPPRE) +MSRC$:ALLOCB/UPDATE=(ENHS$:ALLOCB) *+EXECML$/LIB 
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